
clear all
clc

disp('XXXXXX  XXXXXX  XXXXX     XXXXX  XXXXXX  XXXXX  XXXXXXX');
disp('XX        XX    XX   XX   XX       XX    XX     XX   XX');
disp('XX        XX    XX    XX  XXXXX    XX    XXXXX  XX   XX');
disp('XX        XX    XX   XX   XX       XX    XX     XX   XX');
disp('XXXXXX  XXXXXX  XXXXX     XXXXX    XX    X XXXX  XXXXXXXXX');
disp('.');
disp('<<<<<Project construction of PL contour plots>>>>>');
disp('Student: Ing. Jos� Luis Navarro J.');
disp('.');
disp('.');
disp('.');

disp('.');
disp('.');
disp('.');
Matrix=load('F9Pb1.txt'); %loads the matrix
disp('.');
disp('.');
disp('.');
%Rotate matrices
Mtx9=rot90(Matrix);

Mtx90=rot90(Mtx9);

clear Matrix
clear Mtx

F=flipud(Mtx90);
Fin=fliplr(F);

clear Mtx90;
clear F;

x = linspace(260,5,700);
y = linspace(250,5,450);
[X,Y] = meshgrid(x,y);
Z =Fin;

figure
contourf(Z,50,'LineStyle', 'none')
xlabel('Excitation wavelength (nm)','FontWeight','bold');
ylabel('Emission wavelength (nm)','FontWeight','bold');
colorbar;
colormap(jet);%(index 11 y 18)
yticks([1 9 19 29 39]) 
yticklabels({'410', '450', '500', '550', '600'})  
xticks([1 5 9 13 17 21 25])
xticklabels({'220', '240', '260', '280', '300', '320', '340'})

a = get(gca,'XTickLabel');
set(gca,'XTickLabel',a,'FontName','Times','fontsize',16)
set(gca,'TickDir','out');

    a2 = gca;
    set(a2,'box','off','color','none')
    b = axes('Position',get(a2,'Position'),'box','on','xtick',[],'ytick',[]);
    axes(a2)  